home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / modula.arc / STRTES.MOD < prev    next >
Encoding:
Text File  |  1985-05-30  |  2.1 KB  |  50 lines
  1.  
  2. MODULE Strtest;
  3. FROM Terminal IMPORT WriteString,WriteLn,Write,Read;
  4. FROM InOut IMPORT ReadCard,WriteCard;
  5. FROM Strlib IMPORT Len,StringAdd,StringLeft,StringRight,InputString,
  6.      StringRemove,StringDelete,StringInsert,ShowString,StringPos,StringReplace,
  7.      StringChange,eos;
  8.  
  9. VAR 
  10.      j,k : CARDINAL;
  11.    Str1, Str2, Str3 : ARRAY [0..79] OF CHAR;  
  12.       chr : CHAR;
  13.  
  14.  
  15. BEGIN
  16.     WriteString("Enter a String : "); InputString(Str1); WriteLn;
  17.     WriteString("Your string is "); WriteCard(Len(Str1),2);
  18.     WriteString(" characters long"); WriteLn;
  19.     WriteString("Append a string to the first one : "); InputString(Str2);
  20.     WriteLn; WriteLn;
  21.     StringAdd(Str1,Str2);
  22.     WriteString("The new string is:"); WriteLn;
  23.     ShowString(Str1); WriteLn;
  24.     WriteString("Enter first and last character to be deleted, by position ");
  25.     WriteLn;ReadCard(j); 
  26.     WriteLn; ReadCard(k); WriteLn;
  27.     StringDelete(Str1,j,k); WriteLn;
  28.     WriteString("Your string is now "); WriteLn; ShowString(Str1); WriteLn;
  29.     WriteString("The last two characters are : "); StringRight(Str2,Str1,2);
  30.     ShowString(Str2); WriteLn;
  31.     WriteString("The first two characters are : "); StringLeft(Str2,Str1,2);
  32.     ShowString(Str2); WriteLn; WriteLn;
  33.     WriteString("Enter string to be removed : "); InputString(Str2); WriteLn;
  34.     StringRemove(Str1,Str2);
  35.     WriteString("Your string is now :"); WriteLn; ShowString(Str1); WriteLn;
  36.     WriteString("Enter string to be inserted "); InputString(Str2); WriteLn;
  37.     WriteString("Enter position of insertion "); WriteLn; ReadCard(j);
  38.     WriteLn;
  39.     StringInsert(Str1,Str2,j);
  40.     WriteString("Your string is now : "); ShowString(Str1); WriteLn;
  41.     WriteString("Enter string to be replaced "); InputString(Str2); WriteLn;
  42.     WriteString("Enter the replacing string "); InputString(Str3); WriteLn;
  43.     StringReplace(Str1,Str2,Str3);
  44.     WriteString("Your string is now : "); ShowString(Str1); WriteLn;
  45.    
  46.     WriteLn; WriteLn; WriteString("----------End of Program------------");
  47.     WriteLn; WriteLn;
  48. END Strtest.
  49.  
  50.